home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.05 May 88 / letters source / ModKeys unit source next >
Encoding:
Text File  |  1988-04-12  |  1.3 KB  |  55 lines  |  [TEXT/PJMM]
  1. UNIT ModKeys;
  2.  
  3. INTERFACE
  4.  
  5.     VAR
  6.         MyKeys : KeyMap;
  7.  
  8.     FUNCTION CommandIsDown : Boolean;     { check the Command key to see if pressed . }
  9.     FUNCTION OptionIsDown : Boolean;     { Check the Option key to see if pressed .}
  10.     FUNCTION CapsIsDown : Boolean;         { Check the Caps Lock key to see if pressed . }
  11.     FUNCTION ShiftIsDown : Boolean;     { Check the Shift key to see if pressed . }
  12.  
  13. IMPLEMENTATION
  14. {-------------------------------------------------}
  15.     FUNCTION CommandIsDown;
  16.  
  17.     BEGIN
  18.         CommandIsDown := False;
  19.         GetKeys(MyKeys);
  20.         IF BitTst(@MyKeys[1], 16) THEN {16 = Command key pressed}
  21.             CommandIsDown := True;
  22.     END;
  23.  
  24. {---------------------------------------------------}
  25.     FUNCTION OptionIsDown;
  26.  
  27.     BEGIN
  28.         OptionIsDown := False;
  29.         GetKeys(MyKeys);
  30.         IF BitTst(@MyKeys[1], 29) THEN {29 = Option key pressed}
  31.             OptionIsDown := True;
  32.     END;
  33.  
  34. {---------------------------------------------------}
  35.     FUNCTION CapsIsDown;
  36.  
  37.     BEGIN
  38.         CapsIsDown := False;
  39.         GetKeys(MyKeys);
  40.         IF BitTst(@MyKeys[1], 30) THEN {30 = CapsLock key pressed}
  41.             CapsIsDown := True;
  42.     END;
  43.  
  44. {---------------------------------------------------}
  45.     FUNCTION ShiftIsDown;
  46.  
  47.     BEGIN
  48.         ShiftIsDown := False;
  49.         GetKeys(MyKeys);
  50.         IF BitTst(@MyKeys[1], 31) THEN {31 = Shift key pressed}
  51.             ShiftIsDown := True;
  52.     END;
  53.  
  54. {----------------------------------------------------}
  55. END.     { of unit }